BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Education/C/Cancer HTB 2.0 L1.cpt/Cancer HTB 2.0 L1/background_2792.xml

Extensible Markup Language | 1992-04-13 | 18KB | 390 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2792</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3741.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3197.css" />
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>315</left>
            <top>303</top>
            <right>490</right>
            <bottom>315</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>9</textSize>
        <textStyle>outline</textStyle>
        <name>Enter words to search for below:</name>
        <script></script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>43</top>
            <right>511</right>
            <bottom>301</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>body</name>
        <script>on enterinfieldget the selectedchunkif the value of it = "" then exit enterinfielddo "put lowertoupper(the value of it) into " & itset textstyle of it to bold,groupput lowertoupper(the value of it) & return after fld finderend enterinfieldon returninfieldget the selectedchunkput it into whereput the selection into changeput return into findwhatrepeatget offset(findwhat,change)put it into wawaif wawa = 0 then exit repeatput " " into char wawa of changeend repeatdo "put change into " & whereend returninfieldon mouseupglobal stext,listselect the clickchunkput the clicktext into stextset lockmessages to trueset cursor to 4if stext = "" thenanswer "You haven't selected anything to search for."exit mouseupend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind whole holder in fld 2if (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listif the number of lines of list = 1 thenfind whole line 1 of list in fld 2click at 0,0elseget choice("What links to" && holder & "?",list)if it ≠ "" thenfind whole it in fld 2click at 0,0end ifend ifelseanswer "No match for keyword “" & holder & "”... It will be in the next update..."choose browse toolend ifhide msgclick at 0,0end mouseup</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>1</left>
            <top>306</top>
            <right>38</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13409</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>?</name>
        <script>on mouseUpgo cd "help!"end mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>284</left>
            <top>306</top>
            <right>321</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12122</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Links</name>
        <script>on mouseupglobal stext,listset lockmessages to trueset cursor to 4put fld 4 into stextif stext = "" thenanswer "You haven't selected anything to search for."exit mouseupend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind holderif (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listget choice("What links to" && holder & "?",list)if it ≠ "" thenfind whole it in fld 2click at 0,0end ifelseanswer "No links to “" & holder & "” found."choose browse toolend ifhide msgend mouseup</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>306</top>
            <right>76</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>28345</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>back</name>
        <script>on mouseupgo cd 1end mouseup</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>77</left>
            <top>306</top>
            <right>114</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>17151</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>prev</name>
        <script>on mouseUpgo prevend mouseUp</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>115</left>
            <top>306</top>
            <right>152</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>25409</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next</name>
        <script>on mouseUpgo nextend mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>153</left>
            <top>306</top>
            <right>190</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6584</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>output</name>
        <script>on mouseUpanswer "Output to printer or to text file?" with "Printer" or "File"¬or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Printer" thenanswer "Print the stack or this card?" with "Stack" or¬"Card" or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Stack" thenrepeat with x = 3 to the number of cdsprint fld bodyend repeatelse if it = "Card" thenprint fld bodyend ifelse if it = "File" thenanswer "Save a file of the Stack or of this Card?" with "Stack" or¬"Card" or "Cancel"if it = "Cancel" thenexit mouseupelse if it = "Stack" thenput the number of cds into countergo cd 1put the short name of this stack & ".txt" into tfilenameput PutFile("Save text as:",tfilename) into textfileif textfile = "" then exit mouseupset cursor to 4set the loc of message to 10,120put "Writing to file " & textfile & ".  Please wait..."into messageopen file textfilerepeat (counter - 1)go nextwrite fld keywords to file textfilewrite return to file textfilewrite fld body to file textfilewrite return to file textfilewrite return to file textfileend repeatclose file textfilego cd 1play harpsichord c e g bbflash 1put "Done." into messagewait 2 secondshide messageelse if it = "Card" thenput fld keywords & ".txt" into tfilenameput PutFile("Save text as:",tfilename) into textfileif textfile = "" then exit mouseupopen file textfilewrite fld body to file textfileclose file textfileend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>21</top>
            <right>511</right>
            <bottom>42</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>keywords</name>
        <script>on mouseupglobal stext,listPUT ME INTO STEXTset lockmessages to trueset cursor to 4if stext = "" thenanswer "You haven't selected anything to search for."exit mouseupend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind holderif (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listget choice("What links to" && holder & "?",list)if it ≠ "" thenfind whole it in fld 2click at 0,0end ifelseanswer "No links to “" & holder & "” found."choose browse toolend ifhide msgend mouseup</script>
    </part>
    <part>
        <id>28</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>43</top>
            <right>185</right>
            <bottom>303</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>finder</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>322</left>
            <top>314</top>
            <right>511</right>
            <bottom>341</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>225</left>
            <top>309</top>
            <right>255</right>
            <bottom>339</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>10177</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>File Loader</name>
        <script>on mouseUppush cardgo lastput filename("TEXT") into manxif manx = "" then exit to hypercardrepeatif last char of manx ≠ ":" then delete last char of manxelsedelete last char of manxexit repeatend ifend repeatput files(manx,"TEXT") into wazrepeat with x = 1 to the number of lines of wazput manx & ":" & line x of waz into thisdomenu new cardopen file thisread from file this for 15000put it into fld 1read from file this for 14995put it after fld 1put this into titlerepeatget offset(":",title)if it = 0 then exit repeatelse delete char 1 to it of titleend repeatput title into fld 2close file this--wipeout thisend repeatgo firstend mouseUp</script>
    </part>
    <name></name>
    <script>on opencardif there is not a menu "Keywords" then create menu "Keywords"if fld "finder" = "" thenput "(No Keywords Available)" into menu "keywords"disable menu "keywords"elseput fld "finder" into menu "keywords"enable menu "keywords"end ifset scroll of fld 1 to 0end opencardon closecardif the number of this cd ≠ 1 thensort lines of fld 3end ifend closecardon domenu what,whereif where ≠ "keywords" then pass domenulock screenglobal stext,listput what into stextset lockmessages to trueset cursor to 4if stext = "" thenanswer "You haven't selected anything to search for."exit domenuend ifput stext into holderput the number of this cd into numput "" into listput "One moment please..."put "Searching for links to “" & holder & "”..."put the number of cds into counterlock screenput 0 into firstcdpush cardgo cd 2repeatfind whole holder in fld 2if (the result = "") and (the number of this cd ≠ firstcd) thenif firstcd = 0 then put the number of this cd into firstcdif the short name of this cd ≠ "" thenput return after last line of listif fld keywords ≠ "" thenput line 1 of fld keywords after last line of listend ifend ifgo nextelseexit repeatend ifend repeatpop cardunlock screenchoose browse toolset locktext of fld keywords to trueif list ≠ "" thensort lines of listif the number of lines of list = 1 thenfind whole line 1 of list in fld 2click at 0,0elseget choice("What links to" && holder & "?",list)if it ≠ "" thenfind whole it in fld 2click at 0,0end ifend ifelseanswer "No match for keyword “" & holder & "”... It will be in the next update..."choose browse toolend ifhide msgclick at 0,0end domenu</script>
</background>